Option Explicit
Sub E_Sample003()
    'ո E_Data01u@
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myRow  As Long
    Set myRng1 = Columns("C")					'jMӷd
    'Set myRng1 = Rows(101)
    On Error Resume Next
    myRow = WorksheetFunction.Match("", myRng1, 0)		'wjM
    On Error GoTo 0
    If myRow = 0 Then
        MsgBox "SŦXxs"
    Else
        Set myRng2 = myRng1.Cells(myRow)
        MsgBox myRng2.Address
    End If
    Set myRng1 = Nothing					'
    Set myRng2 = Nothing
End Sub
